home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / TOOLS_&_ / MACSRMS_ / GLOBALS < prev    next >
Text File  |  1988-04-10  |  2KB  |  64 lines
  1. {-----------------------------------------------------------------  }                                                                                                                }
  2. {   This unit contains sample global data.                                                        }
  3. {-----------------------------------------------------------------    }
  4.  
  5. UNIT Globals;
  6.  
  7. INTERFACE
  8.  
  9. {-----------------------------------------------------------------    }
  10. {   Global constants.                                                                                    }
  11. {-----------------------------------------------------------------    }
  12.  
  13.     CONST
  14.         SP = ' ';
  15.         Null = '';
  16.         QuitOp = 'quitting';
  17.         CloseOp = 'closing';
  18.  
  19.         SBarWidth = 16;
  20.         HorizMax = 1024;
  21.         HorizUnit = 8;
  22.  
  23.         EditMenuId = 102;
  24.         UndoItem = 1;
  25.         CutItem = 3;
  26.         CopyItem = 4;
  27.         PasteItem = 5;
  28.         ClearItem = 6;
  29.         SelectAllItem = 8;
  30.  
  31. {-----------------------------------------------------------------    }
  32. {   Global types.                                                                                            }
  33. {-----------------------------------------------------------------    }
  34.  
  35.     TYPE
  36.         UserFiles = ARRAY[1..MaxFiles] OF RECORD
  37.                 ufRect : Rect;
  38.                 ufOpen : boolean;
  39.                 ufStorage : WindowRecord
  40.             END;
  41.  
  42.         WindType = (wEdit, wClipBd);
  43.         WInfoHandle = ^WInfoPtr;
  44.         WInfoPtr = ^WindowInfo;
  45.         WindowInfo = RECORD
  46.                 zoomed : boolean;
  47.                 preZoomRect : Rect;
  48.                 wType : WindType;
  49.                 vScrollBar : ControlHandle;
  50.                 hScrollBar : ControlHandle;
  51.                 fileName : STRING;
  52.             END;
  53.  
  54. {-----------------------------------------------------------------    }
  55. {   Global variables.                                                                                        }
  56. {-----------------------------------------------------------------    }
  57.  
  58.     VAR
  59.         CR, BS : char;
  60.         Files : UserFiles;
  61.         FirstClick : longint;
  62.  
  63.  
  64. END.